﻿Public Class AppDirectory
    Private mItems As List(Of AppDirectory)
    Public Property ItemList As List(Of AppDirectory)
        Get
            Return mItems
        End Get
        Set(value As List(Of AppDirectory))
            mItems = value
        End Set
    End Property
    Public Property DirectoryID As Integer
    Public Property Directory As String
    Sub New()
        mItems = New List(Of AppDirectory)
        Directory = ""
        DirectoryID = 0
    End Sub
    Sub add(DirectoryItem As String)
        Dim tDirectoryID As Integer
        Try
            tDirectoryID = (From x In mItems Select x.DirectoryID).Max + 1
        Catch ex As Exception
            tDirectoryID = 1
        End Try
        mItems.Add(New AppDirectory With {.Directory = DirectoryItem, .DirectoryID = tDirectoryID})
    End Sub
End Class
